home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / tools / getuser / getuser.pas < prev   
Pascal/Delphi Source File  |  1996-07-10  |  189b  |  12 lines
  1. {$M 1024,0,0}
  2. program GetLoginName;
  3.  
  4. uses NetUsers;
  5.  
  6. var UserName : string[48];
  7.  
  8. begin
  9.   UserName := GetUserName;
  10.   write (UserName);
  11.   if UserName = 'UNKNOWN' then halt(1)
  12. end.